//        Simulation einer Federschwingung
;
t:=0;                              ;//Starten zum Zeitpunkt t=0
y:=ya;				   ;//Anfangsauslenkung

repeat                             ;//Schleifenbeginn 
  
  //Beginn der physikalischen Berechnungen
  ;
  F:=-k*y;                         ;//a,F Berechnung
  a:=F/m;
  
  if start__=1 then anfang:=1;     ;//Abfrage der Ablauf-Taste
  if anfang=1 then                 ;//Berechnung erfolgt erst nach Bettigen der Ablauf-Taste
  begin
    v:=v+a*dt;                     ;//Berechnung der Geschwindigkeit
    y:=y+v*dt;                     ;//   -"-     des Ortes
    t:=t+dt;
  end;
  ausgabe (t, y, v, a);            ;//Angabe der Ausgabevariablen
until t>mt;